home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 22 / 2 / DISK2220.ZIP / SCREDIT4.EXE / SCRDEMO.006 < prev    next >
Text File  |  1991-01-05  |  1KB  |  46 lines
  1. TYPE
  2. ChgField_Demo_BUFFERDEF   = RECORD
  3.      R13_C10           : STRING[11];
  4.      R13_C22           : STRING[11];
  5.      R13_C34           : STRING[11];
  6.      R13_C46           : STRING[11];
  7.      R14_C10           : STRING[11];
  8.      R14_C22           : STRING[11];
  9.      R14_C34           : STRING[11];
  10.      R14_C46           : STRING[11];
  11.      R15_C10           : STRING[11];
  12.      R15_C22           : STRING[11];
  13.      R15_C34           : STRING[11];
  14.      R15_C46           : STRING[11];
  15.      R16_C10           : STRING[11];
  16.      R16_C22           : STRING[11];
  17.      R16_C34           : STRING[11];
  18.      R16_C46           : STRING[11];
  19.      R17_C22           : STRING[11];
  20.      R17_C34           : STRING[11];
  21.      R17_C46           : STRING[11];
  22.      R17_C58           : STRING[11];
  23.      R18_C22           : STRING[11];
  24.      R18_C34           : STRING[11];
  25.      R18_C46           : STRING[11];
  26.      R18_C58           : STRING[11];
  27.      R19_C22           : STRING[11];
  28.      R19_C34           : STRING[11];
  29.      R19_C46           : STRING[11];
  30.      R19_C58           : STRING[11];
  31.      R20_C22           : STRING[11];
  32.      R20_C34           : STRING[11];
  33.      R20_C46           : STRING[11];
  34.      R20_C58           : STRING[11];
  35.      END;
  36.  
  37. VAR
  38. ChgField_Demo_BUF   : ChgField_Demo_BUFFERDEF;
  39.  
  40. PROCEDURE INITIALIZE_ChgField_Demo_BUF;
  41. BEGIN
  42. FILLCHAR(ChgField_Demo_BUF,384,00);
  43. S_STORE_BUF_LOC ('ChgField_Demo',ADDR(ChgField_Demo_BUF));
  44. END;
  45.  
  46.